home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / MATHS / RLAB / RLAB125.ZIP / !RLaB / examples / gtvec < prev    next >
Text File  |  1996-04-09  |  159b  |  14 lines
  1. gtvec = function ( L )
  2. {
  3.   i = 1;
  4.   for (j in members (L))
  5.   {
  6.     if (class (L.[j]) == "num")
  7.     {
  8.       v[i] = L.[j];
  9.       i++;
  10.     }
  11.   }
  12.   return v.';
  13. };
  14.